(easy-mmode-define-global-mode): Put `definition-name' properties on

the functions whose names are constructed.

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index d916bc2f57ccf75c378fe7f5b27b5522fded8c3d..b1149c7d848ef0a0920cef2f1681383a045f65e3 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -290,11 +290,13 @@ in which `%s' turns it on."
           (let ((buf (pop ,buffers)))
             (when (buffer-live-p buf)
               (with-current-buffer buf (,turn-on))))))
+       (put ',buffers 'definition-name ',global-mode)
 
        ;; The function that catches kill-all-local-variables.
        (defun ,cmmh ()
         (add-to-list ',buffers (current-buffer))
-        (add-hook 'post-command-hook ',buffers)))))
+        (add-hook 'post-command-hook ',buffers))
+       (put ',cmmh 'definition-name ',global-mode))))
 
 ;;;
 ;;; easy-mmode-defmap